home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
dll_grph
/
vx3d01
/
3dstatus.frm
< prev
next >
Wrap
Text File
|
1995-11-25
|
12KB
|
411 lines
VERSION 4.00
Begin VB.Form frm3DStatusBar
BorderStyle = 3 'Fixed Dialog
Caption = "VBMax 3D Effects Demo - Status Bar"
ClientHeight = 4260
ClientLeft = 2310
ClientTop = 3270
ClientWidth = 7290
Height = 4665
Icon = "3DStatusBar.frx":0000
Left = 2250
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4260
ScaleWidth = 7290
ShowInTaskbar = 0 'False
Top = 2925
Width = 7410
Begin VB.TextBox Text1
Height = 285
Left = 960
TabIndex = 0
Text = "VBMax 3D FX Status Bar"
Top = 120
Width = 6075
End
Begin VB.Frame Frame4
Caption = "Effect"
Height = 3135
Left = 1740
TabIndex = 28
Top = 600
Width = 2235
Begin VB.OptionButton optEffect
Caption = "Projected"
Height = 255
Index = 8
Left = 180
TabIndex = 17
Top = 2760
Width = 1155
End
Begin VB.OptionButton optEffect
Caption = "Outline Left"
Height = 255
Index = 7
Left = 180
TabIndex = 16
Top = 2460
Width = 1275
End
Begin VB.OptionButton optEffect
Caption = "Outline Right"
Height = 255
Index = 6
Left = 180
TabIndex = 15
Top = 2160
Width = 1335
End
Begin VB.OptionButton optEffect
Caption = "Floating"
Height = 255
Index = 5
Left = 180
TabIndex = 14
Top = 1860
Width = 915
End
Begin VB.OptionButton optEffect
Caption = "Embossed Recessed"
Height = 255
Index = 4
Left = 180
TabIndex = 13
Top = 1560
Width = 1995
End
Begin VB.OptionButton optEffect
Caption = "Embossed Raised"
Height = 255
Index = 3
Left = 180
TabIndex = 12
Top = 1260
Width = 1695
End
Begin VB.OptionButton optEffect
Caption = "Recessed"
Height = 255
Index = 2
Left = 180
TabIndex = 11
Top = 960
Width = 1155
End
Begin VB.OptionButton optEffect
Caption = "Raised"
Height = 255
Index = 1
Left = 180
TabIndex = 10
Top = 660
Width = 915
End
Begin VB.OptionButton optEffect
Caption = "Normal"
Height = 255
Index = 0
Left = 180
TabIndex = 9
Top = 360
Value = -1 'True
Width = 915
End
End
Begin VB.Frame Frame3
Caption = "Shadow"
Height = 1095
Left = 5880
TabIndex = 27
Top = 600
Width = 1275
Begin VB.OptionButton optShadow
Caption = "Dark"
Height = 255
Index = 1
Left = 240
TabIndex = 23
Top = 660
Width = 795
End
Begin VB.OptionButton optShadow
Caption = "Light"
Height = 255
Index = 0
Left = 240
TabIndex = 22
Top = 300
Value = -1 'True
Width = 795
End
End
Begin VB.Frame Frame2
Caption = "Font"
Height = 1695
Left = 4200
TabIndex = 26
Top = 600
Width = 1455
Begin VB.CheckBox chkBold
Caption = "Bold"
Height = 315
Left = 180
TabIndex = 18
Top = 300
Width = 795
End
Begin VB.CheckBox chkItalic
Caption = "Italic"
Height = 315
Left = 180
TabIndex = 19
Top = 600
Width = 795
End
Begin VB.CheckBox chkUnderline
Caption = "Underline"
Height = 315
Left = 180
TabIndex = 20
Top = 900
Width = 1095
End
Begin VB.CheckBox chkStrikeout
Caption = "Strikeout"
Height = 315
Left = 180
TabIndex = 21
Top = 1200
Width = 1095
End
End
Begin VB.Frame Frame1
Caption = "Color"
Height = 3135
Left = 120
TabIndex = 25
Top = 600
Width = 1395
Begin VB.OptionButton optColor
Caption = "White"
ForeColor = &H00FFFFFF&
Height = 255
Index = 8
Left = 180
TabIndex = 8
Top = 2460
Width = 1095
End
Begin VB.OptionButton optColor
Caption = "Cyan"
ForeColor = &H00FFFF00&
Height = 255
Index = 7
Left = 180
TabIndex = 7
Top = 2160
Width = 1095
End
Begin VB.OptionButton optColor
Caption = "Magenta"
ForeColor = &H00FF00FF&
Height = 255
Index = 6
Left = 180
TabIndex = 6
Top = 1860
Width = 1095
End
Begin VB.OptionButton optColor
Caption = "Blue"
ForeColor = &H00FF0000&
Height = 255
Index = 5
Left = 180
TabIndex = 5
Top = 1560
Width = 1095
End
Begin VB.OptionButton optColor
Caption = "Yellow"
ForeColor = &H0000FFFF&
Height = 255
Index = 4
Left = 180
TabIndex = 4
Top = 1260
Width = 1095
End
Begin VB.OptionButton optColor
Caption = "Green"
ForeColor = &H0000FF00&
Height = 255
Index = 3
Left = 180
TabIndex = 3
Top = 960
Width = 1095
End
Begin VB.OptionButton optColor
Caption = "Red"
ForeColor = &H000000FF&
Height = 255
Index = 2
Left = 180
TabIndex = 2
Top = 660
Width = 1095
End
Begin VB.OptionButton optColor
Caption = "Black"
ForeColor = &H00000000&
Height = 255
Index = 1
Left = 180
TabIndex = 1
Top = 360
Value = -1 'True
Width = 1095
End
End
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "Close"
Height = 495
Left = 5880
TabIndex = 24
Top = 3180
Width = 1215
End
Begin VB.Label lblStatus
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Use label control for status bar place holder and to set font name and size"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 270
Left = 60
TabIndex = 30
Top = 3900
Width = 7155
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Message:"
Height = 195
Left = 180
TabIndex = 29
Top = 165
Width = 690
End
End
Attribute VB_Name = "frm3DStatusBar"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim mo3D As New cls3D
Dim msStatus As String
Private Sub Form_Load()
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
msStatus = Text1.Text
With mo3D
.FontName = lblStatus.FontName
.FontSize = lblStatus.FontSize
End With
RedrawStatusBar
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set mo3D = Nothing
Set frm3DStatusBar = Nothing
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Sub RedrawStatusBar()
Cls
mo3D.StatusBar lblStatus, msStatus
End Sub
Private Sub optColor_Click(Index As Integer)
mo3D.ForeColor = optColor(Index).ForeColor
RedrawStatusBar
End Sub
Private Sub chkBold_Click()
If chkBold.Value = vbChecked Then
mo3D.FontBold = True
Else
mo3D.FontBold = False
End If
RedrawStatusBar
End Sub
Private Sub chkItalic_Click()
If chkItalic.Value = vbChecked Then
mo3D.FontItalic = True
Else
mo3D.FontItalic = False
End If
RedrawStatusBar
End Sub
Private Sub chkStrikeout_Click()
If chkStrikeout.Value = vbChecked Then
mo3D.FontStrikethru = True
Else
mo3D.FontStrikethru = False
End If
RedrawStatusBar
End Sub
Private Sub chkUnderline_Click()
If chkUnderline.Value = vbChecked Then
mo3D.FontUnderline = True
Else
mo3D.FontUnderline = False
End If
RedrawStatusBar
End Sub
Private Sub optEffect_Click(Index As Integer)
mo3D.Style = Index
RedrawStatusBar
End Sub
Private Sub optShadow_Click(Index As Integer)
Select Case Index
Case 0: mo3D.Shadow = gnLIGHT_SHADOW
Case 1: mo3D.Shadow = gnDARK_SHADOW
End Select
RedrawStatusBar
End Sub
Private Sub Text1_Change()
msStatus = Text1.Text
RedrawStatusBar
End Sub
